/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.12 Dec 86.sit / 02.12 Dec 86 / C Sources / qd2.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 71 64 32 2e 63 00 | 00 00 00 00 00 00 00 00 |..qd2.c.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 16 ad 00 | 00 01 5c 9b db cd 3b 9b |........|..\...;.|
|00000060| db cd 3b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..;.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8b 29 00 00 |........|.....)..|
|00000080| 2f 2a 20 20 51 75 69 63 | 6b 64 72 61 77 20 44 72 |/*  Quic|kdraw Dr|
|00000090| 61 77 69 6e 67 20 50 72 | 6f 67 72 61 6d 0d 20 2a |awing Pr|ogram. *|
|000000a0| 20 20 09 53 68 6f 77 73 | 20 6f 66 66 20 62 61 73 |  .Shows| off bas|
|000000b0| 69 63 20 71 75 69 63 6b | 64 72 61 77 20 73 68 61 |ic quick|draw sha|
|000000c0| 70 65 73 0d 20 2a 09 09 | 61 6e 64 20 6f 70 65 72 |pes. *..|and oper|
|000000d0| 61 74 69 6f 6e 73 2e 0d | 20 2a 09 09 42 79 20 42 |ations..| *..By B|
|000000e0| 6f 62 20 47 6f 72 64 6f | 6e 20 66 6f 72 20 4d 61 |ob Gordo|n for Ma|
|000000f0| 63 54 75 74 6f 72 2e 0d | 20 2a 09 09 43 6f 6d 70 |cTutor..| *..Comp|
|00000100| 69 6c 65 64 20 77 69 74 | 68 20 4c 69 67 68 74 73 |iled wit|h Lights|
|00000110| 70 65 65 64 43 0d 20 2a | 0d 20 2a 09 49 6d 70 6f |peedC. *|. *.Impo|
|00000120| 72 74 61 6e 74 20 6e 6f | 74 65 20 66 6f 72 20 4d |rtant no|te for M|
|00000130| 61 63 20 43 20 75 73 65 | 72 73 3a 0d 20 2a 09 09 |ac C use|rs:. *..|
|00000140| 45 76 65 72 79 20 70 6c | 61 63 65 20 79 6f 75 20 |Every pl|ace you |
|00000150| 73 65 65 20 65 76 65 6e | 74 2d 3e 77 68 65 72 65 |see even|t->where|
|00000160| 2c 0d 20 2a 09 09 72 65 | 70 6c 61 63 65 20 69 74 |,. *..re|place it|
|00000170| 20 77 69 74 68 20 26 65 | 76 65 6e 74 2d 3e 77 68 | with &e|vent->wh|
|00000180| 65 72 65 0d 20 2a 2f 0d | 20 0d 20 23 69 6e 63 6c |ere. */.| . #incl|
|00000190| 75 64 65 09 22 61 62 63 | 2e 68 22 0d 20 23 69 6e |ude."abc|.h". #in|
|000001a0| 63 6c 75 64 65 09 22 51 | 75 69 63 6b 64 72 61 77 |clude."Q|uickdraw|
|000001b0| 2e 68 22 0d 20 23 69 6e | 63 6c 75 64 65 09 22 45 |.h". #in|clude."E|
|000001c0| 76 65 6e 74 4d 67 72 2e | 68 22 0d 20 23 69 6e 63 |ventMgr.|h". #inc|
|000001d0| 6c 75 64 65 09 22 57 69 | 6e 64 6f 77 4d 67 72 2e |lude."Wi|ndowMgr.|
|000001e0| 68 22 0d 20 23 69 6e 63 | 6c 75 64 65 09 22 4d 65 |h". #inc|lude."Me|
|000001f0| 6e 75 4d 67 72 2e 68 22 | 0d 20 0d 20 2f 2a 20 64 |nuMgr.h"|. . /* d|
|00000200| 65 66 69 6e 65 73 20 66 | 6f 72 20 6d 65 6e 75 20 |efines f|or menu |
|00000210| 49 44 27 73 20 2a 2f 0d | 20 0d 20 23 64 65 66 69 |ID's */.| . #defi|
|00000220| 6e 65 09 09 4d 64 65 73 | 6b 09 09 31 30 30 0d 20 |ne..Mdes|k..100. |
|00000230| 23 64 65 66 69 6e 65 09 | 09 4d 66 69 6c 65 09 09 |#define.|.Mfile..|
|00000240| 31 30 31 0d 20 23 64 65 | 66 69 6e 65 09 09 4d 65 |101. #de|fine..Me|
|00000250| 64 69 74 09 09 31 30 32 | 0d 20 23 64 65 66 69 6e |dit..102|. #defin|
|00000260| 65 09 09 4d 73 68 61 70 | 65 09 31 30 33 0d 20 23 |e..Mshap|e.103. #|
|00000270| 64 65 66 69 6e 65 09 09 | 4d 6f 70 09 09 31 30 34 |define..|Mop..104|
|00000280| 0d 20 0d 20 2f 2a 20 46 | 69 6c 65 20 2a 2f 0d 20 |. . /* F|ile */. |
|00000290| 23 64 65 66 69 6e 65 09 | 09 69 4e 65 77 09 09 31 |#define.|.iNew..1|
|000002a0| 0d 20 23 64 65 66 69 6e | 65 09 09 69 43 6c 6f 73 |. #defin|e..iClos|
|000002b0| 65 09 32 0d 20 23 64 65 | 66 69 6e 65 09 09 69 51 |e.2. #de|fine..iQ|
|000002c0| 75 69 74 09 09 33 0d 20 | 0d 20 2f 2a 20 45 64 69 |uit..3. |. /* Edi|
|000002d0| 74 20 2a 2f 0d 20 23 64 | 65 66 69 6e 65 09 09 69 |t */. #d|efine..i|
|000002e0| 55 6e 64 6f 09 09 31 0d | 20 23 64 65 66 69 6e 65 |Undo..1.| #define|
|000002f0| 09 09 69 43 75 74 09 09 | 33 0d 20 23 64 65 66 69 |..iCut..|3. #defi|
|00000300| 6e 65 09 09 69 43 6f 70 | 79 09 09 34 0d 20 23 64 |ne..iCop|y..4. #d|
|00000310| 65 66 69 6e 65 09 09 69 | 50 61 73 74 65 09 35 0d |efine..i|Paste.5.|
|00000320| 20 0d 20 2f 2a 20 47 6c | 6f 62 61 6c 20 76 61 72 | . /* Gl|obal var|
|00000330| 69 61 62 6c 65 73 20 2a | 2f 0d 20 0d 20 4d 65 6e |iables *|/. . Men|
|00000340| 75 48 61 6e 64 6c 65 09 | 09 6d 65 6e 75 44 65 73 |uHandle.|.menuDes|
|00000350| 6b 3b 09 2f 2a 20 6d 65 | 6e 75 20 68 61 6e 64 6c |k;./* me|nu handl|
|00000360| 65 73 20 2a 2f 0d 20 4d | 65 6e 75 48 61 6e 64 6c |es */. M|enuHandl|
|00000370| 65 09 09 6d 65 6e 75 46 | 69 6c 65 3b 0d 20 4d 65 |e..menuF|ile;. Me|
|00000380| 6e 75 48 61 6e 64 6c 65 | 09 09 6d 65 6e 75 45 64 |nuHandle|..menuEd|
|00000390| 69 74 3b 0d 20 4d 65 6e | 75 48 61 6e 64 6c 65 09 |it;. Men|uHandle.|
|000003a0| 09 6d 65 6e 75 53 68 61 | 70 65 3b 0d 20 4d 65 6e |.menuSha|pe;. Men|
|000003b0| 75 48 61 6e 64 6c 65 09 | 09 6d 65 6e 75 4f 70 3b |uHandle.|.menuOp;|
|000003c0| 0d 20 57 69 6e 64 6f 77 | 50 74 72 09 09 74 68 65 |. Window|Ptr..the|
|000003d0| 57 69 6e 64 6f 77 3b 0d | 20 57 69 6e 64 6f 77 52 |Window;.| WindowR|
|000003e0| 65 63 6f 72 64 09 77 69 | 6e 64 6f 77 52 65 63 3b |ecord.wi|ndowRec;|
|000003f0| 0d 20 52 65 63 74 09 09 | 09 09 64 72 61 67 62 6f |. Rect..|..dragbo|
|00000400| 75 6e 64 3b 0d 20 52 65 | 63 74 09 09 09 09 6c 69 |und;. Re|ct....li|
|00000410| 6d 69 74 52 65 63 74 3b | 0d 20 0d 6d 61 69 6e 28 |mitRect;|. .main(|
|00000420| 29 0d 7b 0d 09 69 6e 69 | 74 73 79 73 28 29 3b 09 |).{..ini|tsys();.|
|00000430| 2f 2a 20 73 79 73 74 65 | 6d 20 69 6e 69 74 69 61 |/* syste|m initia|
|00000440| 6c 69 7a 61 74 69 6f 6e | 20 2a 2f 0d 09 69 6e 69 |lization| */..ini|
|00000450| 74 61 70 70 28 29 3b 09 | 2f 2a 20 61 70 70 6c 69 |tapp();.|/* appli|
|00000460| 63 61 74 69 6f 6e 20 69 | 6e 69 74 69 61 6c 69 7a |cation i|nitializ|
|00000470| 61 74 69 6f 6e 20 2a 2f | 0d 09 65 76 65 6e 74 6c |ation */|..eventl|
|00000480| 6f 6f 70 28 29 3b 0d 7d | 0d 0d 2f 2a 20 73 79 73 |oop();.}|../* sys|
|00000490| 74 65 6d 20 69 6e 69 74 | 69 61 6c 69 7a 61 74 69 |tem init|ializati|
|000004a0| 6f 6e 20 2a 2f 0d 0d 69 | 6e 69 74 73 79 73 28 29 |on */..i|nitsys()|
|000004b0| 09 09 0d 7b 09 09 09 09 | 09 0d 09 49 6e 69 74 47 |...{....|...InitG|
|000004c0| 72 61 66 28 26 74 68 65 | 50 6f 72 74 29 3b 09 2f |raf(&the|Port);./|
|000004d0| 2a 20 74 68 65 73 65 20 | 74 77 6f 20 6c 69 6e 65 |* these |two line|
|000004e0| 73 20 64 6f 6e 65 20 2a | 2f 0d 09 49 6e 69 74 46 |s done *|/..InitF|
|000004f0| 6f 6e 74 73 28 29 3b 09 | 09 09 2f 2a 20 61 75 74 |onts();.|../* aut|
|00000500| 6f 6d 61 74 69 63 61 6c | 6c 79 20 62 79 20 4d 61 |omatical|ly by Ma|
|00000510| 63 20 43 20 2a 2f 0d 09 | 49 6e 69 74 57 69 6e 64 |c C */..|InitWind|
|00000520| 6f 77 73 28 29 3b 0d 09 | 49 6e 69 74 43 75 72 73 |ows();..|InitCurs|
|00000530| 6f 72 28 29 3b 0d 09 49 | 6e 69 74 4d 65 6e 75 73 |or();..I|nitMenus|
|00000540| 28 29 3b 0d 09 74 68 65 | 57 69 6e 64 6f 77 20 3d |();..the|Window =|
|00000550| 20 4e 69 6c 3b 09 09 2f | 2a 69 6e 64 69 63 61 74 | Nil;../|*indicat|
|00000560| 65 73 20 6e 6f 20 77 69 | 6e 64 6f 77 20 2a 2f 0d |es no wi|ndow */.|
|00000570| 09 53 65 74 52 65 63 74 | 28 26 64 72 61 67 62 6f |.SetRect|(&dragbo|
|00000580| 75 6e 64 2c 30 2c 30 2c | 35 31 32 2c 32 35 30 29 |und,0,0,|512,250)|
|00000590| 3b 0d 09 53 65 74 52 65 | 63 74 28 26 6c 69 6d 69 |;..SetRe|ct(&limi|
|000005a0| 74 52 65 63 74 2c 36 30 | 2c 34 30 2c 35 30 38 2c |tRect,60|,40,508,|
|000005b0| 32 34 34 29 3b 0d 7d 0d | 0d 2f 2a 0d 20 2a 09 61 |244);.}.|./*. *.a|
|000005c0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 69 6e 69 74 69 |pplicati|on initi|
|000005d0| 61 6c 69 7a 61 74 69 6f | 6e 0d 20 2a 09 09 53 65 |alizatio|n. *..Se|
|000005e0| 74 73 20 75 70 20 6d 65 | 6e 75 73 2e 0d 20 2a 09 |ts up me|nus.. *.|
|000005f0| 09 49 6e 69 74 69 61 6c | 69 7a 65 20 64 72 61 77 |.Initial|ize draw|
|00000600| 69 6e 67 0d 20 2a 2f 0d | 69 6e 69 74 61 70 70 28 |ing. */.|initapp(|
|00000610| 29 0d 7b 0d 09 73 65 74 | 75 70 6d 65 6e 75 28 29 |).{..set|upmenu()|
|00000620| 3b 0d 09 64 72 69 6e 69 | 74 28 29 3b 0d 7d 0d 0d |;..drini|t();.}..|
|00000630| 2f 2a 0d 20 2a 20 09 73 | 65 74 20 75 70 20 61 70 |/*. * .s|et up ap|
|00000640| 70 6c 69 63 61 74 69 6f | 6e 27 73 20 6d 65 6e 75 |plicatio|n's menu|
|00000650| 73 0d 20 2a 09 09 45 61 | 63 68 20 6d 65 6e 75 20 |s. *..Ea|ch menu |
|00000660| 69 73 20 61 20 73 65 70 | 61 72 61 74 65 20 67 72 |is a sep|arate gr|
|00000670| 6f 75 70 0d 20 2a 09 09 | 6f 66 20 6c 69 6e 65 73 |oup. *..|of lines|
|00000680| 2e 20 20 0d 20 2a 2f 0d | 73 65 74 75 70 6d 65 6e |.  . */.|setupmen|
|00000690| 75 28 29 0d 7b 0d 09 6d | 65 6e 75 44 65 73 6b 20 |u().{..m|enuDesk |
|000006a0| 3d 20 4e 65 77 4d 65 6e | 75 28 4d 64 65 73 6b 2c |= NewMen|u(Mdesk,|
|000006b0| 43 74 6f 50 73 74 72 28 | 22 5c 32 34 22 29 29 3b |CtoPstr(|"\24"));|
|000006c0| 0d 09 41 64 64 52 65 73 | 4d 65 6e 75 20 28 6d 65 |..AddRes|Menu (me|
|000006d0| 6e 75 44 65 73 6b 2c 20 | 27 44 52 56 52 27 29 3b |nuDesk, |'DRVR');|
|000006e0| 0d 09 49 6e 73 65 72 74 | 4d 65 6e 75 20 28 6d 65 |..Insert|Menu (me|
|000006f0| 6e 75 44 65 73 6b 2c 20 | 30 29 3b 0d 09 0d 09 6d |nuDesk, |0);....m|
|00000700| 65 6e 75 46 69 6c 65 20 | 3d 20 4e 65 77 4d 65 6e |enuFile |= NewMen|
|00000710| 75 28 4d 66 69 6c 65 2c | 20 43 74 6f 50 73 74 72 |u(Mfile,| CtoPstr|
|00000720| 28 22 46 69 6c 65 22 29 | 29 3b 0d 09 41 70 70 65 |("File")|);..Appe|
|00000730| 6e 64 4d 65 6e 75 20 28 | 6d 65 6e 75 46 69 6c 65 |ndMenu (|menuFile|
|00000740| 2c 20 0d 09 09 43 74 6f | 50 73 74 72 28 22 4e 65 |, ...Cto|Pstr("Ne|
|00000750| 77 2f 4e 3b 43 6c 6f 73 | 65 3b 51 75 69 74 2f 51 |w/N;Clos|e;Quit/Q|
|00000760| 22 29 29 3b 0d 09 49 6e | 73 65 72 74 4d 65 6e 75 |"));..In|sertMenu|
|00000770| 20 28 6d 65 6e 75 46 69 | 6c 65 2c 20 30 29 3b 0d | (menuFi|le, 0);.|
|00000780| 09 0d 09 6d 65 6e 75 45 | 64 69 74 20 3d 20 4e 65 |...menuE|dit = Ne|
|00000790| 77 4d 65 6e 75 28 4d 65 | 64 69 74 2c 20 43 74 6f |wMenu(Me|dit, Cto|
|000007a0| 50 73 74 72 28 22 45 64 | 69 74 22 29 29 3b 0d 09 |Pstr("Ed|it"));..|
|000007b0| 41 70 70 65 6e 64 4d 65 | 6e 75 20 28 6d 65 6e 75 |AppendMe|nu (menu|
|000007c0| 45 64 69 74 2c 20 0d 09 | 09 43 74 6f 50 73 74 72 |Edit, ..|.CtoPstr|
|000007d0| 28 22 28 55 6e 64 6f 2f | 5a 3b 28 2d 3b 28 43 75 |("(Undo/|Z;(-;(Cu|
|000007e0| 74 2f 58 3b 28 43 6f 70 | 79 2f 43 3b 28 50 61 73 |t/X;(Cop|y/C;(Pas|
|000007f0| 74 65 2f 56 3b 28 43 6c | 65 61 72 22 29 29 3b 0d |te/V;(Cl|ear"));.|
|00000800| 09 49 6e 73 65 72 74 4d | 65 6e 75 20 28 6d 65 6e |.InsertM|enu (men|
|00000810| 75 45 64 69 74 2c 20 30 | 29 3b 0d 09 0d 09 6d 65 |uEdit, 0|);....me|
|00000820| 6e 75 53 68 61 70 65 20 | 3d 20 4e 65 77 4d 65 6e |nuShape |= NewMen|
|00000830| 75 28 4d 73 68 61 70 65 | 2c 20 43 74 6f 50 73 74 |u(Mshape|, CtoPst|
|00000840| 72 28 22 53 68 61 70 65 | 22 29 29 3b 0d 09 41 70 |r("Shape|"));..Ap|
|00000850| 70 65 6e 64 4d 65 6e 75 | 20 28 6d 65 6e 75 53 68 |pendMenu| (menuSh|
|00000860| 61 70 65 2c 0d 09 09 43 | 74 6f 50 73 74 72 28 22 |ape,...C|toPstr("|
|00000870| 4c 69 6e 65 3b 52 65 63 | 74 61 6e 67 6c 65 3b 4f |Line;Rec|tangle;O|
|00000880| 76 61 6c 3b 52 6f 75 6e | 64 20 52 65 63 74 61 6e |val;Roun|d Rectan|
|00000890| 67 6c 65 3b 41 72 63 22 | 29 29 3b 0d 09 49 6e 73 |gle;Arc"|));..Ins|
|000008a0| 65 72 74 4d 65 6e 75 20 | 28 6d 65 6e 75 53 68 61 |ertMenu |(menuSha|
|000008b0| 70 65 2c 20 30 29 3b 0d | 09 0d 09 6d 65 6e 75 4f |pe, 0);.|...menuO|
|000008c0| 70 20 3d 20 4e 65 77 4d | 65 6e 75 28 4d 6f 70 2c |p = NewM|enu(Mop,|
|000008d0| 20 43 74 6f 50 73 74 72 | 28 22 4f 70 65 72 61 74 | CtoPstr|("Operat|
|000008e0| 69 6f 6e 22 29 29 3b 0d | 09 41 70 70 65 6e 64 4d |ion"));.|.AppendM|
|000008f0| 65 6e 75 20 28 6d 65 6e | 75 4f 70 2c 0d 09 09 43 |enu (men|uOp,...C|
|00000900| 74 6f 50 73 74 72 28 22 | 46 72 61 6d 65 3b 50 61 |toPstr("|Frame;Pa|
|00000910| 69 6e 74 3b 45 72 61 73 | 65 3b 49 6e 76 65 72 74 |int;Eras|e;Invert|
|00000920| 3b 22 29 29 3b 0d 09 49 | 6e 73 65 72 74 4d 65 6e |;"));..I|nsertMen|
|00000930| 75 20 28 6d 65 6e 75 4f | 70 2c 20 30 29 3b 0d 09 |u (menuO|p, 0);..|
|00000940| 09 0d 09 44 72 61 77 4d | 65 6e 75 42 61 72 28 29 |...DrawM|enuBar()|
|00000950| 3b 0d 7d 0d 09 0d 2f 2a | 09 09 45 76 65 6e 74 20 |;.}.../*|..Event |
|00000960| 4c 6f 6f 70 20 0d 20 2a | 09 09 4c 6f 6f 70 20 66 |Loop . *|..Loop f|
|00000970| 6f 72 65 76 65 72 20 75 | 6e 74 69 6c 20 51 75 69 |orever u|ntil Qui|
|00000980| 74 0d 20 2a 2f 0d 65 76 | 65 6e 74 6c 6f 6f 70 28 |t. */.ev|entloop(|
|00000990| 29 0d 7b 0d 09 45 76 65 | 6e 74 52 65 63 6f 72 64 |).{..Eve|ntRecord|
|000009a0| 09 09 74 68 65 45 76 65 | 6e 74 3b 0d 09 63 68 61 |..theEve|nt;..cha|
|000009b0| 72 09 09 09 09 63 3b 0d | 09 73 68 6f 72 74 09 09 |r....c;.|.short..|
|000009c0| 09 09 77 69 6e 64 6f 77 | 63 6f 64 65 3b 0d 09 57 |..window|code;..W|
|000009d0| 69 6e 64 6f 77 50 74 72 | 09 09 77 77 3b 0d 09 0d |indowPtr|..ww;...|
|000009e0| 09 77 68 69 6c 65 28 54 | 72 75 65 29 0d 09 09 7b |.while(T|rue)...{|
|000009f0| 0d 09 09 69 66 20 28 74 | 68 65 57 69 6e 64 6f 77 |...if (t|heWindow|
|00000a00| 29 09 20 20 20 20 09 09 | 09 0d 09 09 09 7b 09 09 |).    ..|.....{..|
|00000a10| 09 09 09 09 09 09 0d 09 | 09 09 45 6e 61 62 6c 65 |........|..Enable|
|00000a20| 49 74 65 6d 28 6d 65 6e | 75 46 69 6c 65 2c 32 29 |Item(men|uFile,2)|
|00000a30| 3b 09 0d 09 09 09 44 69 | 73 61 62 6c 65 49 74 65 |;.....Di|sableIte|
|00000a40| 6d 28 6d 65 6e 75 46 69 | 6c 65 2c 31 29 3b 0d 09 |m(menuFi|le,1);..|
|00000a50| 09 09 41 64 6a 75 73 74 | 43 75 72 73 6f 72 28 74 |..Adjust|Cursor(t|
|00000a60| 68 65 57 69 6e 64 6f 77 | 29 3b 0d 09 09 09 7d 0d |heWindow|);....}.|
|00000a70| 09 09 65 6c 73 65 09 09 | 09 09 09 09 09 09 0d 09 |..else..|........|
|00000a80| 09 09 7b 09 09 09 09 09 | 09 09 09 0d 09 09 09 45 |..{.....|.......E|
|00000a90| 6e 61 62 6c 65 49 74 65 | 6d 28 6d 65 6e 75 46 69 |nableIte|m(menuFi|
|00000aa0| 6c 65 2c 31 29 3b 0d 09 | 09 09 44 69 73 61 62 6c |le,1);..|..Disabl|
|00000ab0| 65 49 74 65 6d 28 6d 65 | 6e 75 46 69 6c 65 2c 32 |eItem(me|nuFile,2|
|00000ac0| 29 3b 0d 09 09 09 7d 0d | 09 09 69 66 20 28 47 65 |);....}.|..if (Ge|
|00000ad0| 74 4e 65 78 74 45 76 65 | 6e 74 28 65 76 65 72 79 |tNextEve|nt(every|
|00000ae0| 45 76 65 6e 74 2c 26 74 | 68 65 45 76 65 6e 74 29 |Event,&t|heEvent)|
|00000af0| 29 0d 09 09 09 73 77 69 | 74 63 68 28 74 68 65 45 |)....swi|tch(theE|
|00000b00| 76 65 6e 74 2e 77 68 61 | 74 29 09 09 09 09 09 0d |vent.wha|t)......|
|00000b10| 09 09 09 09 7b 09 09 09 | 09 09 09 0d 09 09 09 09 |....{...|........|
|00000b20| 63 61 73 65 20 6b 65 79 | 44 6f 77 6e 3a 20 09 09 |case key|Down: ..|
|00000b30| 0d 09 09 09 09 09 63 20 | 3d 20 74 68 65 45 76 65 |......c |= theEve|
|00000b40| 6e 74 2e 6d 65 73 73 61 | 67 65 20 26 20 63 68 61 |nt.messa|ge & cha|
|00000b50| 72 43 6f 64 65 4d 61 73 | 6b 3b 0d 09 09 09 09 09 |rCodeMas|k;......|
|00000b60| 69 66 20 28 74 68 65 45 | 76 65 6e 74 2e 6d 6f 64 |if (theE|vent.mod|
|00000b70| 69 66 69 65 72 73 20 26 | 20 63 6d 64 4b 65 79 29 |ifiers &| cmdKey)|
|00000b80| 0d 09 09 09 09 09 09 64 | 6f 6d 65 6e 75 28 4d 65 |.......d|omenu(Me|
|00000b90| 6e 75 4b 65 79 28 63 29 | 29 3b 0d 09 09 09 09 09 |nuKey(c)|);......|
|00000ba0| 65 6c 73 65 20 69 66 20 | 28 74 68 65 57 69 6e 64 |else if |(theWind|
|00000bb0| 6f 77 29 0d 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |ow).....|.break;.|
|00000bc0| 09 09 09 09 63 61 73 65 | 20 6d 6f 75 73 65 44 6f |....case| mouseDo|
|00000bd0| 77 6e 3a 0d 09 09 09 09 | 09 64 6f 6d 6f 75 73 65 |wn:.....|.domouse|
|00000be0| 64 6f 77 6e 28 26 74 68 | 65 45 76 65 6e 74 29 3b |down(&th|eEvent);|
|00000bf0| 0d 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00000c00| 09 64 65 66 61 75 6c 74 | 3a 0d 09 09 09 09 09 62 |.default|:......b|
|00000c10| 72 65 61 6b 3b 0d 09 09 | 09 09 7d 09 0d 09 09 7d |reak;...|..}....}|
|00000c20| 0d 7d 0d 0d 41 64 6a 75 | 73 74 43 75 72 73 6f 72 |.}..Adju|stCursor|
|00000c30| 28 77 29 0d 09 57 69 6e | 64 6f 77 52 65 63 6f 72 |(w)..Win|dowRecor|
|00000c40| 64 09 2a 77 3b 0d 7b 0d | 09 50 6f 69 6e 74 09 09 |d.*w;.{.|.Point..|
|00000c50| 09 09 70 74 3b 0d 09 43 | 75 72 73 48 61 6e 64 6c |..pt;..C|ursHandl|
|00000c60| 65 09 09 63 75 72 73 3b | 0d 09 0d 09 47 65 74 4d |e..curs;|....GetM|
|00000c70| 6f 75 73 65 28 26 70 74 | 29 3b 0d 09 4c 6f 63 61 |ouse(&pt|);..Loca|
|00000c80| 6c 54 6f 47 6c 6f 62 61 | 6c 28 26 70 74 29 3b 0d |lToGloba|l(&pt);.|
|00000c90| 09 69 66 20 28 50 74 49 | 6e 52 67 6e 28 70 74 2c |.if (PtI|nRgn(pt,|
|00000ca0| 77 2d 3e 63 6f 6e 74 52 | 67 6e 29 29 0d 09 09 7b |w->contR|gn))...{|
|00000cb0| 0d 09 09 63 75 72 73 20 | 3d 20 28 43 75 72 73 6f |...curs |= (Curso|
|00000cc0| 72 20 2a 2a 29 47 65 74 | 43 75 72 73 6f 72 28 32 |r **)Get|Cursor(2|
|00000cd0| 29 3b 09 0d 09 09 53 65 | 74 43 75 72 73 6f 72 28 |);....Se|tCursor(|
|00000ce0| 2a 63 75 72 73 29 3b 20 | 0d 09 09 7d 0d 09 65 6c |*curs); |...}..el|
|00000cf0| 73 65 0d 09 09 7b 0d 09 | 09 53 65 74 43 75 72 73 |se...{..|.SetCurs|
|00000d00| 6f 72 28 26 61 72 72 6f | 77 29 3b 0d 09 09 7d 0d |or(&arro|w);...}.|
|00000d10| 7d 0d 0d 2f 2a 20 64 6f | 6d 6f 75 73 65 64 6f 77 |}../* do|mousedow|
|00000d20| 6e 0d 20 2a 09 09 68 61 | 6e 64 6c 65 20 6d 6f 75 |n. *..ha|ndle mou|
|00000d30| 73 65 20 64 6f 77 6e 20 | 65 76 65 6e 74 73 0d 20 |se down |events. |
|00000d40| 2a 2f 0d 64 6f 6d 6f 75 | 73 65 64 6f 77 6e 28 65 |*/.domou|sedown(e|
|00000d50| 72 29 0d 09 45 76 65 6e | 74 52 65 63 6f 72 64 09 |r)..Even|tRecord.|
|00000d60| 2a 65 72 3b 0d 7b 0d 09 | 73 68 6f 72 74 09 09 09 |*er;.{..|short...|
|00000d70| 77 69 6e 64 6f 77 63 6f | 64 65 3b 0d 09 57 69 6e |windowco|de;..Win|
|00000d80| 64 6f 77 50 74 72 09 77 | 68 69 63 68 57 69 6e 64 |dowPtr.w|hichWind|
|00000d90| 6f 77 3b 0d 09 73 68 6f | 72 74 09 09 09 69 6e 67 |ow;..sho|rt...ing|
|00000da0| 6f 3b 0d 09 6c 6f 6e 67 | 09 09 09 73 69 7a 65 3b |o;..long|...size;|
|00000db0| 0d 09 6c 6f 6e 67 09 09 | 09 6e 65 77 73 69 7a 65 |..long..|.newsize|
|00000dc0| 3b 0d 09 52 67 6e 50 74 | 72 09 09 72 70 3b 0d 09 |;..RgnPt|r..rp;..|
|00000dd0| 52 65 63 74 09 09 09 62 | 6f 78 3b 0d 09 52 65 63 |Rect...b|ox;..Rec|
|00000de0| 74 09 09 09 2a 62 6f 78 | 70 3b 0d 09 0d 09 77 69 |t...*box|p;....wi|
|00000df0| 6e 64 6f 77 63 6f 64 65 | 20 3d 20 46 69 6e 64 57 |ndowcode| = FindW|
|00000e00| 69 6e 64 6f 77 28 65 72 | 2d 3e 77 68 65 72 65 2c |indow(er|->where,|
|00000e10| 20 0d 09 09 09 09 09 09 | 09 09 09 26 77 68 69 63 | .......|...&whic|
|00000e20| 68 57 69 6e 64 6f 77 29 | 3b 0d 09 73 77 69 74 63 |hWindow)|;..switc|
|00000e30| 68 20 28 77 69 6e 64 6f | 77 63 6f 64 65 29 0d 09 |h (windo|wcode)..|
|00000e40| 09 7b 0d 09 09 63 61 73 | 65 20 69 6e 44 65 73 6b |.{...cas|e inDesk|
|00000e50| 3a 0d 09 09 09 69 66 20 | 28 74 68 65 57 69 6e 64 |:....if |(theWind|
|00000e60| 6f 77 20 6e 6f 74 65 71 | 75 61 6c 20 30 29 0d 09 |ow noteq|ual 0)..|
|00000e70| 09 09 09 7b 0d 09 09 09 | 09 48 69 6c 69 74 65 57 |...{....|.HiliteW|
|00000e80| 69 6e 64 6f 77 28 74 68 | 65 57 69 6e 64 6f 77 2c |indow(th|eWindow,|
|00000e90| 20 46 61 6c 73 65 29 3b | 0d 09 09 09 09 44 72 61 | False);|.....Dra|
|00000ea0| 77 47 72 6f 77 49 63 6f | 6e 28 74 68 65 57 69 6e |wGrowIco|n(theWin|
|00000eb0| 64 6f 77 29 3b 0d 09 09 | 09 09 7d 0d 09 09 09 62 |dow);...|..}....b|
|00000ec0| 72 65 61 6b 3b 0d 09 09 | 63 61 73 65 20 69 6e 4d |reak;...|case inM|
|00000ed0| 65 6e 75 42 61 72 3a 0d | 09 09 09 64 6f 6d 65 6e |enuBar:.|...domen|
|00000ee0| 75 28 4d 65 6e 75 53 65 | 6c 65 63 74 28 65 72 2d |u(MenuSe|lect(er-|
|00000ef0| 3e 77 68 65 72 65 29 29 | 3b 0d 09 09 09 62 72 65 |>where))|;....bre|
|00000f00| 61 6b 3b 0d 09 09 63 61 | 73 65 20 69 6e 53 79 73 |ak;...ca|se inSys|
|00000f10| 57 69 6e 64 6f 77 3a 0d | 09 09 09 53 79 73 42 65 |Window:.|...SysBe|
|00000f20| 65 70 28 31 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |ep(1);..|..break;|
|00000f30| 0d 09 09 63 61 73 65 20 | 69 6e 43 6f 6e 74 65 6e |...case |inConten|
|00000f40| 74 3a 0d 09 09 09 69 66 | 20 28 77 68 69 63 68 57 |t:....if| (whichW|
|00000f50| 69 6e 64 6f 77 20 65 71 | 75 61 6c 73 20 74 68 65 |indow eq|uals the|
|00000f60| 57 69 6e 64 6f 77 29 0d | 09 09 09 09 7b 0d 09 09 |Window).|....{...|
|00000f70| 09 09 48 69 6c 69 74 65 | 57 69 6e 64 6f 77 28 77 |..Hilite|Window(w|
|00000f80| 68 69 63 68 57 69 6e 64 | 6f 77 2c 54 72 75 65 29 |hichWind|ow,True)|
|00000f90| 3b 0d 09 09 09 09 44 72 | 61 77 47 72 6f 77 49 63 |;.....Dr|awGrowIc|
|00000fa0| 6f 6e 28 77 68 69 63 68 | 57 69 6e 64 6f 77 29 3b |on(which|Window);|
|00000fb0| 0d 09 09 09 09 64 72 64 | 72 61 77 28 77 68 69 63 |.....drd|raw(whic|
|00000fc0| 68 57 69 6e 64 6f 77 29 | 3b 0d 09 09 09 09 7d 0d |hWindow)|;.....}.|
|00000fd0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 63 61 73 65 |...break|;...case|
|00000fe0| 20 69 6e 44 72 61 67 3a | 0d 09 09 09 44 72 61 67 | inDrag:|....Drag|
|00000ff0| 57 69 6e 64 6f 77 28 77 | 68 69 63 68 57 69 6e 64 |Window(w|hichWind|
|00001000| 6f 77 2c 20 0d 09 09 09 | 09 09 09 20 20 65 72 2d |ow, ....|...  er-|
|00001010| 3e 77 68 65 72 65 2c 20 | 26 64 72 61 67 62 6f 75 |>where, |&dragbou|
|00001020| 6e 64 29 3b 0d 09 09 09 | 44 72 61 77 47 72 6f 77 |nd);....|DrawGrow|
|00001030| 49 63 6f 6e 28 77 68 69 | 63 68 57 69 6e 64 6f 77 |Icon(whi|chWindow|
|00001040| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 63 |);....br|eak;...c|
|00001050| 61 73 65 20 69 6e 47 72 | 6f 77 3a 0d 09 09 09 62 |ase inGr|ow:....b|
|00001060| 72 65 61 6b 3b 0d 09 09 | 63 61 73 65 20 69 6e 47 |reak;...|case inG|
|00001070| 6f 41 77 61 79 3a 0d 09 | 09 09 69 6e 67 6f 20 3d |oAway:..|..ingo =|
|00001080| 20 54 72 61 63 6b 47 6f | 41 77 61 79 28 77 68 69 | TrackGo|Away(whi|
|00001090| 63 68 57 69 6e 64 6f 77 | 2c 65 72 2d 3e 77 68 65 |chWindow|,er->whe|
|000010a0| 72 65 29 3b 0d 09 09 09 | 69 66 20 28 69 6e 67 6f |re);....|if (ingo|
|000010b0| 29 0d 09 09 09 09 7b 0d | 09 09 09 09 43 6c 6f 73 |).....{.|....Clos|
|000010c0| 65 57 69 6e 64 6f 77 28 | 77 68 69 63 68 57 69 6e |eWindow(|whichWin|
|000010d0| 64 6f 77 29 3b 0d 09 09 | 09 09 74 68 65 57 69 6e |dow);...|..theWin|
|000010e0| 64 6f 77 20 3d 20 4e 69 | 6c 3b 0d 09 09 09 09 7d |dow = Ni|l;.....}|
|000010f0| 0d 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 7d 0d 7d |....brea|k;...}.}|
|00001100| 0d 0d 09 0d 2f 2a 20 64 | 6f 6d 65 6e 75 0d 20 2a |..../* d|omenu. *|
|00001110| 09 09 68 61 6e 64 6c 65 | 73 20 6d 65 6e 75 20 61 |..handle|s menu a|
|00001120| 63 74 69 76 69 74 79 0d | 20 2a 09 09 73 69 6d 70 |ctivity.| *..simp|
|00001130| 6c 79 20 61 20 64 69 73 | 70 61 74 63 68 65 72 20 |ly a dis|patcher |
|00001140| 66 6f 72 20 65 61 63 68 | 0d 20 2a 09 09 6d 65 6e |for each|. *..men|
|00001150| 75 2e 0d 20 2a 2f 0d 64 | 6f 6d 65 6e 75 28 6d 63 |u.. */.d|omenu(mc|
|00001160| 29 0d 09 6c 6f 6e 67 09 | 09 09 6d 63 3b 09 2f 2a |)..long.|..mc;./*|
|00001170| 20 6d 65 6e 75 20 72 65 | 73 75 6c 74 20 2a 2f 0d | menu re|sult */.|
|00001180| 7b 0d 09 73 68 6f 72 74 | 09 09 09 6d 65 6e 75 49 |{..short|...menuI|
|00001190| 64 3b 0d 09 73 68 6f 72 | 74 09 09 09 6d 65 6e 75 |d;..shor|t...menu|
|000011a0| 69 74 65 6d 3b 0d 09 0d | 09 6d 65 6e 75 49 64 20 |item;...|.menuId |
|000011b0| 3d 20 48 69 57 6f 72 64 | 28 6d 63 29 3b 0d 09 6d |= HiWord|(mc);..m|
|000011c0| 65 6e 75 69 74 65 6d 20 | 3d 20 4c 6f 57 6f 72 64 |enuitem |= LoWord|
|000011d0| 28 6d 63 29 3b 0d 09 0d | 09 73 77 69 74 63 68 20 |(mc);...|.switch |
|000011e0| 28 6d 65 6e 75 49 64 29 | 0d 09 09 7b 0d 09 09 63 |(menuId)|...{...c|
|000011f0| 61 73 65 20 4d 64 65 73 | 6b 20 3a 20 62 72 65 61 |ase Mdes|k : brea|
|00001200| 6b 3b 0d 09 09 09 09 09 | 09 2f 2a 20 6e 6f 74 20 |k;......|./* not |
|00001210| 68 61 6e 64 6c 69 6e 67 | 20 44 41 27 73 20 2a 2f |handling| DA's */|
|00001220| 0d 09 09 63 61 73 65 20 | 4d 66 69 6c 65 20 3a 20 |...case |Mfile : |
|00001230| 64 6f 66 69 6c 65 28 6d | 65 6e 75 69 74 65 6d 29 |dofile(m|enuitem)|
|00001240| 3b 0d 09 09 09 09 09 09 | 20 62 72 65 61 6b 3b 0d |;.......| break;.|
|00001250| 09 09 63 61 73 65 20 4d | 65 64 69 74 20 3a 20 2f |..case M|edit : /|
|00001260| 2a 20 61 6c 6c 20 64 69 | 73 61 62 6c 65 64 20 2a |* all di|sabled *|
|00001270| 2f 0d 09 09 09 09 09 09 | 20 62 72 65 61 6b 3b 0d |/.......| break;.|
|00001280| 09 09 63 61 73 65 20 4d | 73 68 61 70 65 3a 20 64 |..case M|shape: d|
|00001290| 6f 73 68 61 70 65 28 6d | 65 6e 75 69 74 65 6d 29 |oshape(m|enuitem)|
|000012a0| 3b 0d 09 09 09 09 09 09 | 20 62 72 65 61 6b 3b 0d |;.......| break;.|
|000012b0| 09 09 63 61 73 65 20 4d | 6f 70 09 20 20 3a 20 64 |..case M|op.  : d|
|000012c0| 6f 6f 70 65 72 28 6d 65 | 6e 75 69 74 65 6d 29 3b |ooper(me|nuitem);|
|000012d0| 0d 09 09 09 09 09 09 20 | 62 72 65 61 6b 3b 0d 09 |....... |break;..|
|000012e0| 09 7d 0d 09 48 69 6c 69 | 74 65 4d 65 6e 75 28 30 |.}..Hili|teMenu(0|
|000012f0| 29 3b 0d 7d 0d 0d 64 6f | 73 68 61 70 65 28 69 74 |);.}..do|shape(it|
|00001300| 65 6d 29 0d 09 73 68 6f | 72 74 09 09 69 74 65 6d |em)..sho|rt..item|
|00001310| 3b 0d 7b 0d 09 73 74 61 | 74 69 63 20 73 68 6f 72 |;.{..sta|tic shor|
|00001320| 74 09 6c 61 73 74 69 74 | 65 6d 3b 0d 09 0d 09 43 |t.lastit|em;....C|
|00001330| 68 65 63 6b 49 74 65 6d | 20 28 6d 65 6e 75 53 68 |heckItem| (menuSh|
|00001340| 61 70 65 2c 6c 61 73 74 | 69 74 65 6d 2c 46 61 6c |ape,last|item,Fal|
|00001350| 73 65 29 3b 0d 20 09 43 | 68 65 63 6b 49 74 65 6d |se);. .C|heckItem|
|00001360| 20 28 6d 65 6e 75 53 68 | 61 70 65 2c 69 74 65 6d | (menuSh|ape,item|
|00001370| 2c 54 72 75 65 29 3b 0d | 20 09 6c 61 73 74 69 74 |,True);.| .lastit|
|00001380| 65 6d 20 3d 20 69 74 65 | 6d 3b 0d 20 09 64 72 73 |em = ite|m;. .drs|
|00001390| 68 61 70 65 28 69 74 65 | 6d 29 3b 0d 7d 0d 0d 64 |hape(ite|m);.}..d|
|000013a0| 6f 6f 70 65 72 28 69 74 | 65 6d 29 0d 09 73 68 6f |ooper(it|em)..sho|
|000013b0| 72 74 09 09 69 74 65 6d | 3b 0d 7b 0d 09 73 74 61 |rt..item|;.{..sta|
|000013c0| 74 69 63 20 73 68 6f 72 | 74 09 6c 61 73 74 69 74 |tic shor|t.lastit|
|000013d0| 65 6d 3b 0d 09 0d 09 43 | 68 65 63 6b 49 74 65 6d |em;....C|heckItem|
|000013e0| 20 28 6d 65 6e 75 4f 70 | 2c 20 6c 61 73 74 69 74 | (menuOp|, lastit|
|000013f0| 65 6d 2c 46 61 6c 73 65 | 29 3b 0d 09 43 68 65 63 |em,False|);..Chec|
|00001400| 6b 49 74 65 6d 20 28 6d | 65 6e 75 4f 70 2c 20 69 |kItem (m|enuOp, i|
|00001410| 74 65 6d 2c 20 54 72 75 | 65 29 3b 0d 09 69 66 20 |tem, Tru|e);..if |
|00001420| 28 69 74 65 6d 20 3d 3d | 20 35 29 0d 09 09 7b 0d |(item ==| 5)...{.|
|00001430| 09 20 09 69 74 65 6d 20 | 3d 20 30 3b 0d 09 20 09 |. .item |= 0;.. .|
|00001440| 53 79 73 42 65 65 70 28 | 31 29 3b 0d 09 20 09 7d |SysBeep(|1);.. .}|
|00001450| 0d 09 64 72 6f 70 65 72 | 28 6c 61 73 74 69 74 65 |..droper|(lastite|
|00001460| 6d 20 3d 20 69 74 65 6d | 29 3b 0d 7d 0d 0d 2f 2a |m = item|);.}../*|
|00001470| 20 09 64 6f 66 69 6c 65 | 0d 20 2a 09 09 68 61 6e | .dofile|. *..han|
|00001480| 64 6c 65 73 20 66 69 6c | 65 20 6d 65 6e 75 0d 20 |dles fil|e menu. |
|00001490| 2a 2f 0d 64 6f 66 69 6c | 65 28 69 74 65 6d 29 0d |*/.dofil|e(item).|
|000014a0| 09 73 68 6f 72 74 09 09 | 69 74 65 6d 3b 0d 7b 0d |.short..|item;.{.|
|000014b0| 09 63 68 61 72 09 09 2a | 74 69 74 6c 65 31 3b 09 |.char..*|title1;.|
|000014c0| 09 09 2f 2a 74 69 74 6c | 65 20 66 6f 72 20 77 69 |../*titl|e for wi|
|000014d0| 6e 64 6f 77 20 2a 2f 0d | 09 52 65 63 74 09 09 62 |ndow */.|.Rect..b|
|000014e0| 6f 75 6e 64 73 52 65 63 | 74 3b 0d 09 0d 09 73 77 |oundsRec|t;....sw|
|000014f0| 69 74 63 68 20 28 69 74 | 65 6d 29 0d 09 09 7b 0d |itch (it|em)...{.|
|00001500| 09 09 63 61 73 65 20 69 | 4e 65 77 20 3a 09 09 2f |..case i|New :../|
|00001510| 2a 20 6f 70 65 6e 20 74 | 68 65 20 77 69 6e 64 6f |* open t|he windo|
|00001520| 77 20 2a 2f 0d 09 09 09 | 74 69 74 6c 65 31 20 3d |w */....|title1 =|
|00001530| 20 22 41 42 43 20 57 69 | 6e 64 6f 77 22 3b 0d 09 | "ABC Wi|ndow";..|
|00001540| 09 09 53 65 74 52 65 63 | 74 28 26 62 6f 75 6e 64 |..SetRec|t(&bound|
|00001550| 73 52 65 63 74 2c 35 30 | 2c 35 30 2c 34 30 30 2c |sRect,50|,50,400,|
|00001560| 32 30 30 29 3b 0d 09 09 | 09 74 68 65 57 69 6e 64 |200);...|.theWind|
|00001570| 6f 77 20 3d 20 4e 65 77 | 57 69 6e 64 6f 77 28 26 |ow = New|Window(&|
|00001580| 77 69 6e 64 6f 77 52 65 | 63 2c 20 26 62 6f 75 6e |windowRe|c, &boun|
|00001590| 64 73 52 65 63 74 2c 0d | 09 09 09 09 09 09 09 43 |dsRect,.|.......C|
|000015a0| 74 6f 50 73 74 72 28 74 | 69 74 6c 65 31 29 2c 54 |toPstr(t|itle1),T|
|000015b0| 72 75 65 2c 64 6f 63 75 | 6d 65 6e 74 50 72 6f 63 |rue,docu|mentProc|
|000015c0| 2c 0d 09 09 09 09 09 09 | 09 28 57 69 6e 64 6f 77 |,.......|.(Window|
|000015d0| 50 74 72 29 20 2d 31 2c | 20 54 72 75 65 2c 20 30 |Ptr) -1,| True, 0|
|000015e0| 29 3b 0d 09 09 09 44 72 | 61 77 47 72 6f 77 49 63 |);....Dr|awGrowIc|
|000015f0| 6f 6e 28 74 68 65 57 69 | 6e 64 6f 77 29 3b 0d 09 |on(theWi|ndow);..|
|00001600| 09 09 50 74 6f 43 73 74 | 72 28 74 69 74 6c 65 31 |..PtoCst|r(title1|
|00001610| 29 3b 0d 09 09 09 44 69 | 73 61 62 6c 65 49 74 65 |);....Di|sableIte|
|00001620| 6d 28 6d 65 6e 75 46 69 | 6c 65 2c 31 29 3b 0d 09 |m(menuFi|le,1);..|
|00001630| 09 09 45 6e 61 62 6c 65 | 49 74 65 6d 28 6d 65 6e |..Enable|Item(men|
|00001640| 75 46 69 6c 65 2c 32 29 | 3b 0d 09 09 09 62 72 65 |uFile,2)|;....bre|
|00001650| 61 6b 3b 0d 09 09 63 61 | 73 65 20 69 43 6c 6f 73 |ak;...ca|se iClos|
|00001660| 65 20 3a 09 09 2f 2a 20 | 63 6c 6f 73 65 20 74 68 |e :../* |close th|
|00001670| 65 20 77 69 6e 64 6f 77 | 20 2a 2f 0d 09 09 09 43 |e window| */....C|
|00001680| 6c 6f 73 65 57 69 6e 64 | 6f 77 28 74 68 65 57 69 |loseWind|ow(theWi|
|00001690| 6e 64 6f 77 29 3b 0d 09 | 09 09 74 68 65 57 69 6e |ndow);..|..theWin|
|000016a0| 64 6f 77 20 3d 20 4e 69 | 6c 3b 0d 09 09 09 44 69 |dow = Ni|l;....Di|
|000016b0| 73 61 62 6c 65 49 74 65 | 6d 28 6d 65 6e 75 46 69 |sableIte|m(menuFi|
|000016c0| 6c 65 2c 32 29 3b 0d 09 | 09 09 45 6e 61 62 6c 65 |le,2);..|..Enable|
|000016d0| 49 74 65 6d 28 6d 65 6e | 75 46 69 6c 65 2c 31 29 |Item(men|uFile,1)|
|000016e0| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 63 61 |;....bre|ak;...ca|
|000016f0| 73 65 20 69 51 75 69 74 | 20 3a 09 09 2f 2a 20 51 |se iQuit| :../* Q|
|00001700| 75 69 74 20 2a 2f 0d 09 | 09 09 45 78 69 74 54 6f |uit */..|..ExitTo|
|00001710| 53 68 65 6c 6c 28 29 3b | 0d 09 09 09 62 72 65 61 |Shell();|....brea|
|00001720| 6b 3b 09 0d 09 09 7d 0d | 7d 0d 0d 0d 0d 00 00 00 |k;....}.|}.......|
|00001730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00001790| 09 09 62 72 65 61 6b 3b | 09 0d 09 09 7d 0d 7d 0d |..break;|....}.}.|
|000017a0| 0d 0d 0d 05 9a 48 6e ff | fc 4e ad 06 3a 20 2c 00 |.....Hn.|.N..: ,.|
|000017b0| 05 71 64 32 2e 63 02 00 | 00 00 54 45 58 54 4b 41 |.qd2.c..|..TEXTKA|
|000017c0| 48 4c 01 00 00 40 00 40 | 00 00 00 01 ad 4a 00 00 |HL...@.@|.....J..|
|000017d0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 40 00 40 |..TEXTKA|HL...@.@|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 9a fb 1c d6 00 00 | 16 ad 00 00 01 5c 0c 48 |........|.....\.H|
|00001800| 6e ff dc 48 6e ff ec 4e | ba fb 2c 48 6c 00 08 48 |n..Hn..N|..,Hl..H|
|00001810| 6e ff e4 48 6e ff f4 4e | ba fb 1c 42 ae ff cc 42 |n..Hn..N|...B...B|
|00001820| ae ff d0 20 2d f4 94 90 | ad f4 c4 90 ad f4 c8 2d |... -...|.......-|
|00001830| 40 ff d8 20 2d f4 a4 90 | ad f4 c0 2d 40 ff d4 20 |@.. -...|...-@.. |
|00001840| 2e ff fc d0 ae ff d4 b0 | 94 5c c0 22 2e ff cc 92 |........|.\."....|
|00001850| ae ff fc b2 ac 00 08 5f | c1 c0 01 67 6a 4a 6d f7 |......._|...gjJm.|
|00001860| a8 6f 1e 2f 0c 48 6e ff | dc 48 6e ff ec 4e ba f9 |.o./.Hn.|.Hn..N..|
|00001870| de 48 6c 00 08 48 6e ff | e4 48 6e ff f4 4e ba f9 |.Hl..Hn.|.Hn..N..|
|00001880| 00 00 00 04 00 06 00 03 | 00 00 00 0a 00 09 06 4d |........|.......M|
|00001890| 6f 6e 61 63 6f 96 00 00 | 01 00 00 00 01 16 00 00 |onaco...|........|
|000018a0| 00 16 00 00 00 46 00 02 | a3 c2 01 d8 00 00 00 1c |.....F..|........|
|000018b0| 00 46 00 01 45 54 41 42 | 00 00 00 12 45 46 4e 54 |.F..ETAB|....EFNT|
|000018c0| 00 00 00 1e 03 ec ff ff | 00 00 00 00 00 02 a3 2a |........|.......*|
|000018d0| 03 eb ff ff 00 00 00 08 | 00 02 a3 2e 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+